home *** CD-ROM | disk | FTP | other *** search
/ Amoszine PD Edition 0 / Amoszine PD Edition 0.adf / SOURCE_CODE / RAINBOW_ROTATION.AMOS / RAINBOW_ROTATION.amosSourceCode
AMOS Source Code  |  1993-02-25  |  436b  |  21 lines
  1. '
  2. '   "Rotating Rainbow Effect"  
  3. '   Originally done by the author of AMOS! 
  4. '   Procedurized(?) by Andrew Campbell 
  5. '
  6. '
  7. Curs Off : Flash Off : Hide On 
  8. GOBO[1]
  9. Repeat : Until Mouse Key
  10. Edit 
  11. '----------------
  12. Procedure GOBO[_COLOUR]
  13.  
  14. Set Rainbow 0,_COLOUR,30,"","(1,1,15)(1,-1,15)",""
  15. Rainbow 0,0,49,212
  16. Channel 0 To Rainbow 0
  17. Amal 0,"Loop: For RA=0 To 29; Let X=RA; P;P;P;P;P; Next RA; Jump Loop"
  18. Amal On 
  19.  
  20. End Proc
  21. '----------------